home *** CD-ROM | disk | FTP | other *** search
/ The CICA Windows Explosion! / The CICA Windows Explosion! - Disc 2.iso / programr / vbasic / health.exe / IDFORM.FRM < prev    next >
Text File  |  1993-07-22  |  15KB  |  519 lines
  1. VERSION 2.00
  2. Begin Form IDFORM 
  3.    BackColor       =   &H00FF0000&
  4.    BorderStyle     =   0  'None
  5.    ClientHeight    =   6810
  6.    ClientLeft      =   30
  7.    ClientTop       =   450
  8.    ClientWidth     =   9600
  9.    Height          =   7215
  10.    Left            =   -30
  11.    LinkMode        =   1  'Source
  12.    LinkTopic       =   "Form1"
  13.    ScaleHeight     =   6810
  14.    ScaleWidth      =   9600
  15.    Tag             =   "id"
  16.    Top             =   105
  17.    Width           =   9720
  18.    Begin AniPushButton AniButton1 
  19.       BackColor       =   &H00FF0000&
  20.       Caption         =   "Next Page"
  21.       ForeColor       =   &H00FFFFFF&
  22.       Height          =   465
  23.       Index           =   0
  24.       Left            =   8040
  25.       Picture         =   IDFORM.FRX:0000
  26.       Speed           =   162
  27.       TabIndex        =   3
  28.       TextPosition    =   2  'Left
  29.       Top             =   6240
  30.       Width           =   1440
  31.    End
  32.    Begin AniPushButton AniButton2 
  33.       BackColor       =   &H00FFFFFF&
  34.       Height          =   480
  35.       Left            =   4560
  36.       PictDrawMode    =   1  'Autosize control
  37.       Picture         =   IDFORM.FRX:0EAC
  38.       Speed           =   162
  39.       TabIndex        =   5
  40.       TextPosition    =   2  'Left
  41.       Top             =   6240
  42.       Width           =   480
  43.    End
  44.    Begin AniPushButton AniButton1 
  45.       BackColor       =   &H00FF0000&
  46.       Caption         =   "Back Page"
  47.       ForeColor       =   &H00FFFFFF&
  48.       Height          =   465
  49.       Index           =   1
  50.       Left            =   120
  51.       Picture         =   IDFORM.FRX:148E
  52.       Speed           =   162
  53.       TabIndex        =   4
  54.       TextPosition    =   1  'Right
  55.       Top             =   6240
  56.       Width           =   1515
  57.    End
  58.    Begin SSPanel Panel3D1 
  59.       Alignment       =   6  'Center - TOP
  60.       BackColor       =   &H00C0C0C0&
  61.       BevelInner      =   1  'Inset
  62.       BevelOuter      =   0  'None
  63.       BevelWidth      =   3
  64.       Caption         =   "PATIENT IDENTIFICATION"
  65.       Font3D          =   3  'Inset w/light shading
  66.       FontBold        =   -1  'True
  67.       FontItalic      =   0   'False
  68.       FontName        =   "MS Serif"
  69.       FontSize        =   24
  70.       FontStrikethru  =   0   'False
  71.       FontUnderline   =   0   'False
  72.       ForeColor       =   &H00000000&
  73.       Height          =   6135
  74.       Left            =   0
  75.       TabIndex        =   6
  76.       Top             =   0
  77.       Width           =   9735
  78.       Begin SSCheck Check3D1 
  79.          Caption         =   "   ENABLE ENTRY CHECKING"
  80.          Font3D          =   3  'Inset w/light shading
  81.          FontBold        =   -1  'True
  82.          FontItalic      =   0   'False
  83.          FontName        =   "MS Serif"
  84.          FontSize        =   12
  85.          FontStrikethru  =   0   'False
  86.          FontUnderline   =   0   'False
  87.          ForeColor       =   &H00000000&
  88.          Height          =   375
  89.          Left            =   2880
  90.          TabIndex        =   15
  91.          Top             =   5520
  92.          Width           =   3975
  93.       End
  94.       Begin SSPanel Panel3D2 
  95.          Alignment       =   6  'Center - TOP
  96.          BackColor       =   &H00C0C0C0&
  97.          BevelInner      =   1  'Inset
  98.          BevelOuter      =   0  'None
  99.          BevelWidth      =   3
  100.          Caption         =   "GENDER"
  101.          Font3D          =   3  'Inset w/light shading
  102.          FontBold        =   -1  'True
  103.          FontItalic      =   0   'False
  104.          FontName        =   "MS Serif"
  105.          FontSize        =   12
  106.          FontStrikethru  =   0   'False
  107.          FontUnderline   =   0   'False
  108.          ForeColor       =   &H00000000&
  109.          Height          =   1695
  110.          Left            =   2520
  111.          TabIndex        =   11
  112.          Top             =   3720
  113.          Width           =   4455
  114.          Begin SSOption Option3D1 
  115.             Caption         =   "FEMALE"
  116.             Font3D          =   0  'None
  117.             FontBold        =   -1  'True
  118.             FontItalic      =   0   'False
  119.             FontName        =   "MS Serif"
  120.             FontSize        =   9.75
  121.             FontStrikethru  =   0   'False
  122.             FontUnderline   =   0   'False
  123.             ForeColor       =   &H00000000&
  124.             Height          =   495
  125.             Index           =   1
  126.             Left            =   2040
  127.             TabIndex        =   13
  128.             TabStop         =   0   'False
  129.             Top             =   960
  130.             Width           =   2295
  131.          End
  132.          Begin AniPushButton AniButton4 
  133.             BackColor       =   &H00C0C0C0&
  134.             Cycle           =   1  'By frame
  135.             Height          =   735
  136.             Left            =   360
  137.             Picture         =   IDFORM.FRX:233A
  138.             TabIndex        =   14
  139.             Top             =   480
  140.             Width           =   855
  141.          End
  142.          Begin SSOption Option3D1 
  143.             Caption         =   "MALE"
  144.             Font3D          =   0  'None
  145.             FontBold        =   -1  'True
  146.             FontItalic      =   0   'False
  147.             FontName        =   "MS Serif"
  148.             FontSize        =   9.75
  149.             FontStrikethru  =   0   'False
  150.             FontUnderline   =   0   'False
  151.             ForeColor       =   &H00000000&
  152.             Height          =   495
  153.             Index           =   0
  154.             Left            =   2040
  155.             TabIndex        =   12
  156.             TabStop         =   0   'False
  157.             Top             =   360
  158.             Width           =   2295
  159.          End
  160.       End
  161.       Begin Timer Timer2 
  162.          Left            =   1200
  163.          Top             =   3120
  164.       End
  165.       Begin VHedit HEdit1 
  166.          FontBold        =   -1  'True
  167.          FontItalic      =   0   'False
  168.          FontName        =   "MS Serif"
  169.          FontSize        =   24
  170.          FontStrikethru  =   0   'False
  171.          FontUnderline   =   0   'False
  172.          Height          =   525
  173.          InflateBottom   =   270
  174.          InflateLeft     =   270
  175.          InflateRight    =   270
  176.          InflateTop      =   270
  177.          Left            =   7920
  178.          TabIndex        =   9
  179.          Top             =   2640
  180.          Version         =   268435458
  181.          Visible         =   0   'False
  182.          Width           =   1215
  183.       End
  184.       Begin Timer Timer1 
  185.          Left            =   1200
  186.          Top             =   2520
  187.       End
  188.       Begin SSCommand Command3D1 
  189.          Caption         =   "ENTER ID"
  190.          Font3D          =   0  'None
  191.          FontBold        =   -1  'True
  192.          FontItalic      =   0   'False
  193.          FontName        =   "MS Serif"
  194.          FontSize        =   12
  195.          FontStrikethru  =   0   'False
  196.          FontUnderline   =   0   'False
  197.          ForeColor       =   &H00000000&
  198.          Height          =   975
  199.          Index           =   1
  200.          Left            =   5280
  201.          Picture         =   IDFORM.FRX:2C0A
  202.          TabIndex        =   2
  203.          Top             =   2280
  204.          Width           =   1935
  205.       End
  206.       Begin SSCommand Command3D1 
  207.          Caption         =   "NEW PATIENT"
  208.          Font3D          =   0  'None
  209.          FontBold        =   -1  'True
  210.          FontItalic      =   0   'False
  211.          FontName        =   "MS Serif"
  212.          FontSize        =   12
  213.          FontStrikethru  =   0   'False
  214.          FontUnderline   =   0   'False
  215.          ForeColor       =   &H00000000&
  216.          Height          =   975
  217.          Index           =   0
  218.          Left            =   2280
  219.          Picture         =   IDFORM.FRX:2F0C
  220.          TabIndex        =   1
  221.          Top             =   2280
  222.          Width           =   1935
  223.       End
  224.       Begin AniPushButton AniButton3 
  225.          BackColor       =   &H00C0C0C0&
  226.          Cycle           =   1  'By frame
  227.          Height          =   480
  228.          Index           =   2
  229.          Left            =   7080
  230.          PictDrawMode    =   1  'Autosize control
  231.          Picture         =   IDFORM.FRX:320E
  232.          TabIndex        =   10
  233.          Top             =   1080
  234.          Width           =   480
  235.       End
  236.       Begin AniPushButton AniButton3 
  237.          BackColor       =   &H00C0C0C0&
  238.          Cycle           =   1  'By frame
  239.          Height          =   855
  240.          Index           =   1
  241.          Left            =   8040
  242.          PictDrawMode    =   2  'Stretch to fit
  243.          Picture         =   IDFORM.FRX:37F0
  244.          Speed           =   162
  245.          TabIndex        =   8
  246.          Top             =   960
  247.          Width           =   855
  248.       End
  249.       Begin VBedit BEdit1 
  250.          CellHeight      =   480
  251.          CellWidth       =   360
  252.          CharSet         =   16412
  253.          CombBaseLine    =   480
  254.          CombColor       =   &H00000000&
  255.          CombEndHeight   =   390
  256.          CombEndMarker   =   0   'False
  257.          CombHeight      =   230
  258.          FontBold        =   -1  'True
  259.          FontItalic      =   0   'False
  260.          FontName        =   "MS Serif"
  261.          FontSize        =   24
  262.          FontStrikethru  =   0   'False
  263.          FontUnderline   =   0   'False
  264.          Height          =   855
  265.          InflateBottom   =   1
  266.          InflateLeft     =   2
  267.          InflateRight    =   2
  268.          InflateTop      =   1
  269.          Left            =   2640
  270.          TabIndex        =   0
  271.          Top             =   960
  272.          Version         =   268435458
  273.          Width           =   4095
  274.       End
  275.       Begin AniPushButton AniButton3 
  276.          BackColor       =   &H00C0C0C0&
  277.          Cycle           =   1  'By frame
  278.          Height          =   855
  279.          Index           =   0
  280.          Left            =   720
  281.          PictDrawMode    =   2  'Stretch to fit
  282.          Picture         =   IDFORM.FRX:3DD2
  283.          Speed           =   162
  284.          TabIndex        =   7
  285.          Top             =   960
  286.          Width           =   855
  287.       End
  288.    End
  289. End
  290. Dim flashflag As Integer
  291.  
  292. Sub AniButton1_Click (INDEX As Integer)
  293.  
  294. If smartform(1) Then
  295. Select Case INDEX
  296. Case 1
  297.         admit.picture1.Cls
  298.         admit.picture1.autoredraw = -1
  299.         admit.picture1.Scale (0, 0)-(3, 4)
  300.         admit.picture1.currentx = .8
  301.         admit.picture1.currenty = 1.2
  302.         admit.picture1.Print "CLICK"
  303.         admit.picture1.currentx = 1
  304.         admit.picture1.currenty = 2
  305.         admit.picture1.Print " TO"
  306.         admit.picture1.currentx = .6
  307.         admit.picture1.currenty = 2.8
  308.         admit.picture1.Print "RETURN"
  309.         admit.Show
  310.  
  311.         idform.Hide
  312.         timer1.enabled = 0
  313.        
  314. Case 0
  315. assess1.Show
  316. idform.Hide
  317. timer1.enabled = 0
  318.  
  319. End Select
  320.  
  321. Else
  322. formcheck "Identification Form"
  323. End If
  324. End Sub
  325.  
  326. Sub AniButton2_Click ()
  327. If smartform(1) Then
  328. menumode idform
  329. timer1.enabled = 0
  330.  
  331. Else
  332. formcheck "Identification Form"
  333. End If
  334. End Sub
  335.  
  336. Sub AniButton3_Click (INDEX As Integer)
  337. If INDEX = 0 Then
  338. timer1.enabled = 0
  339. COMMAND3D1(0).CAPTION = "NEW PATIENT"
  340. End If
  341. If INDEX = 1 Then
  342. timer1.enabled = 0
  343. COMMAND3D1(1).CAPTION = "ENTER ID"
  344. End If
  345. If INDEX = 2 Then
  346. Select Case anibutton3(2).VALUE
  347. Case 2
  348.  
  349. editswap bedit1, hedit1, 1
  350.     bedit1.visible = 0
  351.     hedit1.visible = -1
  352.     hedit1.enabled = 0
  353.  
  354. Case 1
  355. editswap bedit1, hedit1, 2
  356.     bedit1.visible = -1
  357.     hedit1.visible = 0
  358.     hedit1.enabled = -1
  359.  
  360. End Select
  361. End If
  362. End Sub
  363.  
  364. Sub BEdit1_Update ()
  365. 'bedit1.text = "###-##-####"
  366. If bedit1.selstart = 10 Then
  367. If Mid$(bedit1.text, 4, 1) <> "-" Or Mid$(bedit1.text, 7, 1) <> "-" Then
  368.     For n = 1 To Len(bedit1.text)
  369.         If n = 4 Or n = 7 Then
  370.             a$ = a$ + "-"
  371.             'a$ = a$ + Mid$(bedit1.text, n, 1)
  372.         Else
  373.             a$ = a$ + Mid$(bedit1.text, n, 1)
  374.         End If
  375.     Next n
  376.     bedit1.text = a$
  377. End If
  378. bedit1.selstart = 11
  379. End If
  380.  
  381. End Sub
  382.  
  383. Sub Check3D1_Click (VALUE As Integer)
  384.  
  385. If CHECK3D1.VALUE Then
  386.     TYPECHECK = -1
  387.     Else
  388.     TYPECHECK = 0
  389. End If
  390.  
  391. End Sub
  392.  
  393. Sub Command3D1_Click (INDEX As Integer)
  394.  
  395. Select Case INDEX
  396. Case 1
  397. a$ = bedit1.text
  398. curpatID = validID(a$)
  399.  
  400. If curpatID Then
  401.  If COMMAND3D1(1).CAPTION = "ENTER ID" Then COMMAND3D1(1).CAPTION = "KNOWN"
  402.     newflag = 0
  403.     ID$ = Left$(LTrim$(Str$(curpatID)), 4) + "body"
  404.     inkID$ = Left$(LTrim$(Str$(curpatID)), 4) + "ink"
  405.     If MsgBox("     Retrieve Patient Data?", 4, "IDENTIFICATION FORM") = 6 Then
  406.        restoredata curpatID
  407.        restored = -1
  408.     Else
  409.     restored = 0
  410.     End If
  411.     flashflag = 1
  412.     timer1.interval = 679
  413.     timer1.enabled = -1
  414.     editswap bedit1, hedit1, 1
  415.     bedit1.visible = 0
  416.     hedit1.visible = -1
  417.     hedit1.enabled = 0
  418.     anibutton3(2).VALUE = 2
  419.     temprecord.patid = curpatID
  420. Else MsgBox "Please Enter A Valid Patient ID Number", 48, "Retrieve Patient Record"
  421. End If
  422.  
  423. '******************************************
  424. Case 0         'new patient
  425. a$ = bedit1.text
  426.         For n = 1 To Len(a$)
  427.             If Mid$(a$, n, 1) <> "-" Then
  428.             c$ = c$ + Mid$(a$, n, 1)
  429.             End If
  430.         Next
  431. curpatID = Val(c$)
  432. COMMAND3D1(0).CAPTION = "NEW ENTRY"
  433. newflag = -1
  434. ID$ = Left$(LTrim$(Str$(curpatID)), 4) + "body"
  435. inkID$ = Left$(LTrim$(Str$(curpatID)), 4) + "ink"
  436.  
  437.     timer1.interval = 679
  438.     flashflag = 0
  439.     editswap bedit1, hedit1, 1
  440.     bedit1.visible = 0
  441.     hedit1.visible = -1
  442.     hedit1.enabled = 0
  443.     anibutton3(2).VALUE = 2
  444.     temprecord.patid = curpatID
  445. If timer1.enabled Then
  446.     timer1.enabled = 0
  447.     Else timer1.enabled = -1
  448.     End If
  449.  
  450. End Select
  451. End Sub
  452.  
  453. Sub Form_Load ()
  454.  
  455. bedit1.text = "   -  -    "
  456. idform.Move 0, 0, SCREEN.width, SCREEN.height
  457.  
  458. anibutton1(1).Move .1 * anibutton1(1).width, idform.height - 1.1 * anibutton1(0).height
  459. anibutton2.Move (idform.width - anibutton2.width) / 2, idform.height - 1.1 * anibutton2.height
  460. anibutton1(0).Move idform.width - 1.1 * anibutton1(0).width, idform.height - 1.1 * anibutton1(1).height
  461. idform.Scale (0, 0)-(4, 6)
  462. PANEL3D1.Move 0, 0, 4, 5.5
  463. 'command3d1(0).Move panel3d1.width \ 2 - command3d1(0).width, panel3d1.height \ 6
  464. 'command3d1(1).Move panel3d1.width \ 2 + command3d1(0).width, panel3d1.height \ 6
  465. 'command3d1(2).Move panel3d1.width \ 2 - command3d1(0).width, 4 * panel3d1.height \ 6
  466. 'command3d1(3).Move panel3d1.width \ 2 + command3d1(0).width, 4 * panel3d1.height \ 6
  467. hedit1.Move bedit1.left, bedit1.top, bedit1.width * 1.07, bedit1.height
  468. flashflag = 0
  469. timer2.interval = 10
  470. timer2.enabled = -1
  471.  
  472. timer1.interval = 679
  473. timer1.enabled = -1
  474. End Sub
  475.  
  476. Sub Option3D1_Click (INDEX As Integer, VALUE As Integer)
  477. Select Case INDEX
  478. Case 1
  479. 'FEMME
  480. temprecord.sex = -1
  481. timer1.enabled = 0
  482. ANIBUTTON4.VALUE = 3
  483. Case 0
  484. 'HOMME
  485. temprecord.sex = 1
  486. timer1.enabled = 0
  487. ANIBUTTON4.VALUE = 2
  488. End Select
  489. End Sub
  490.  
  491. Sub Timer1_Timer ()
  492.  
  493. Select Case flashflag
  494.  
  495. Case 0
  496. If anibutton3(flashflag).VALUE = 1 Then
  497.     anibutton3(flashflag).VALUE = 2
  498. Else
  499.     
  500.     anibutton3(flashflag).VALUE = 1
  501.     End If
  502.  
  503. Case 1
  504. If anibutton3(flashflag).VALUE = 1 Then
  505.     anibutton3(flashflag).VALUE = 2
  506. Else
  507.     anibutton3(flashflag).VALUE = 1
  508.     End If
  509.     
  510. End Select
  511. End Sub
  512.  
  513. Sub Timer2_Timer ()
  514. Load assess1
  515. SCREEN.MOUSEPOINTER = 0
  516. timer2.enabled = 0
  517. End Sub
  518.  
  519.